home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d17 / pr.arc / SWCHAR.ASM < prev    next >
Assembly Source File  |  1987-02-25  |  584b  |  32 lines
  1.     name    swchar
  2.     page    60,132
  3.     title    Return the value of the switch character
  4. ;
  5. public    swchar
  6. ;
  7. pgroup    group    prog
  8. dgroup    group    data
  9. ;
  10. data    segment byte public 'data'
  11. data    ends
  12. ;
  13. prog    segment    byte public 'prog'
  14.     assume    cs:pgroup, ds:dgroup
  15. ;------------------------------------------------------------------------------
  16. ; swchar()
  17. ;
  18. ; /* returns value of the switch character */
  19. ;
  20. swchar    proc    near
  21. ;
  22.     mov    ax,3700h    ;function call
  23.     int    21h        ;call dos
  24.     mov    al,dl        ;move the result over to ax
  25.     xor    ah,ah        ;clear the high byte
  26.     ret
  27. swchar    endp
  28. ;
  29. prog    ends
  30. ;
  31.     end
  32.